home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / t_os / bs1 / src / bs1.lzh / MENU.BAS
BASIC Source File  |  1992-03-08  |  8KB  |  218 lines
  1. 1000 '
  2. 1010 '  Super Easy Menu  for TRAIN.SND / FWC6
  3. 1020 '                   by  _kuni()
  4. 1030 '
  5. 1040 *INIT
  6. 1050    CLEAR,,512,2000000,512
  7. 1060    SCREEN@ 0:CLS
  8. 1070    DIM LDDTA%(925000)
  9. 1080    LOAD@ "MENU.TIF"
  10. 1090    SYMBOL(450, 70),"JUST"  ,4,4,5,,PSET
  11. 1100    SYMBOL(520,150),"a"     ,2,2,5,,PSET
  12. 1110    SYMBOL(480,200),"Moment",2,2,5,,PSET
  13. 1120    GOSUB *MS00
  14. 1130    LN$="MENU.SND":SW$="0":J=0:GOSUB *SETF
  15. 1140    LINE (400,0)-(639,299),PSET,1,BF
  16. 2000 '  MAIN ROUTINE -----------------------------------------*
  17. 2010 *MAIN
  18. 2020    WHILE SW$ <> "9"
  19. 2030       GOSUB *FLIST
  20. 2040       MOUSE 0
  21. 2050       MOUSE 4,420,15,619,285
  22. 2060       MOUSE 1,550,25,1
  23. 2070       WHILE SW$="0"
  24. 2080          IF MOUSE(2,0) <> 0 THEN SW$="1"
  25. 2090       WEND
  26. 2100       I=MOUSE(1)
  27. 2110       IF I<260 THEN GOSUB *ACT1 ELSE SW$="9"
  28. 2120       MOUSE 5
  29. 2130    WEND
  30. 2140    END
  31. 3000 '  FILE LOAD & PLAY -------------------------------------*
  32. 3010 *SETF
  33. 3020    ERASE LDDTA%:DIM LDDTA%(925000)
  34. 3030    LOAD@ LN$,LDDTA%
  35. 3040    PCMPLAY LDDTA%
  36. 3050    IF J<>0 THEN GOSUB *MSET
  37. 3060    WHILE SW$="1"
  38. 3070       IF MOUSE(2,1) <> 0 THEN SW$="5"
  39. 3080    WEND
  40. 3090    SW$="0"
  41. 3100    GOSUB *MS00
  42. 3110    RETURN
  43. 4000 '  DISPLAY FILE MENU ------------------------------------*
  44. 4010 *FLIST
  45. 4020    LINE (420,15)-(619,285),PSET,0,BF
  46. 4030    SYMBOL(430, 20),"KOKAN   .SND",1,1,7,,PSET
  47. 4040    SYMBOL(430, 40),"KOKAN2  .SND",1,1,7,,PSET
  48. 4050    SYMBOL(430, 60),"EF65FTAN.SND",1,1,7,,PSET
  49. 4060    SYMBOL(430, 80),"EF66    .SND",1,1,7,,PSET
  50. 4070    SYMBOL(430,100),"SUPER   .SND",1,1,7,,PSET
  51. 4080    SYMBOL(430,120),"YAKUMO2 .SND",1,1,7,,PSET
  52. 4090    SYMBOL(430,140),"DE10A   .SND",1,1,7,,PSET
  53. 4100    SYMBOL(430,160),"DE10B   .SND",1,1,7,,PSET
  54. 4110    SYMBOL(430,180),"SUNLINER.SND",1,1,7,,PSET
  55. 4120    SYMBOL(430,200),"KINKO115.SND",1,1,7,,PSET
  56. 4130    SYMBOL(430,220),"YAKUMO  .SND",1,1,7,,PSET
  57. 4140    SYMBOL(430,240),"GETADEN .SND",1,1,7,,PSET
  58. 4150    SYMBOL(430,260),"  -----  END -----     ",1,1,7,,PSET
  59. 4160    RETURN
  60. 5000 '  DISPLAY SET & FILE SELECT ----------------------------*
  61. 5010 *ACT1
  62. 5020    MOUSE 1,550,260,1
  63. 5030    IF I>=15  AND I<40  THEN GOSUB *SL01
  64. 5040    IF I>=40  AND I<60  THEN GOSUB *SL02
  65. 5050    IF I>=60  AND I<80  THEN GOSUB *SL03
  66. 5060    IF I>=80  AND I<100 THEN GOSUB *SL04
  67. 5070    IF I>=100 AND I<120 THEN GOSUB *SL05
  68. 5080    IF I>=120 AND I<140 THEN GOSUB *SL06
  69. 5090    IF I>=140 AND I<160 THEN GOSUB *SL07
  70. 5100    IF I>=160 AND I<180 THEN GOSUB *SL08
  71. 5110    IF I>=180 AND I<200 THEN GOSUB *SL09
  72. 5120    IF I>=200 AND I<220 THEN GOSUB *SL10
  73. 5130    IF I>=220 AND I<240 THEN GOSUB *SL11
  74. 5140    IF I>=240 AND I<260 THEN GOSUB *SL12
  75. 5150    RETURN
  76. 6000 '  SYMBOL -----------------------------------------------*
  77. 6010 *SL01
  78. 6020    LN$="KOKAN.SND":J=1
  79. 6030    SYMBOL(430, 20),"KOKAN   .SND",1,1,4,,PSET
  80. 6040    GOSUB *SETF:RETURN
  81. 6050 *SL02
  82. 6060    LN$="KOKAN2.SND":J=2
  83. 6070    SYMBOL(430, 40),"KOKAN2  .SND",1,1,4,,PSET
  84. 6080    GOSUB *SETF:RETURN
  85. 6090 *SL03
  86. 6100    LN$="EF65FTAN.SND":J=3
  87. 6110    SYMBOL(430, 60),"EF65FTAN.SND",1,1,4,,PSET
  88. 6120    GOSUB *SETF:RETURN
  89. 6130 *SL04
  90. 6140    LN$="EF66.SND":J=4
  91. 6150    SYMBOL(430, 80),"EF66    .SND",1,1,4,,PSET
  92. 6160    GOSUB *SETF:RETURN
  93. 6170 *SL05
  94. 6180    LN$="SUPER.SND":J=5
  95. 6190    SYMBOL(430,100),"SUPER   .SND",1,1,4,,PSET
  96. 6200    GOSUB *SETF:RETURN
  97. 6210 *SL06
  98. 6220    LN$="YAKUMO2.SND":J=6
  99. 6230    SYMBOL(430,120),"YAKUMO2 .SND",1,1,4,,PSET
  100. 6240    GOSUB *SETF:RETURN
  101. 6250 *SL07
  102. 6260    LN$="DE10A.SND":J=7
  103. 6270    SYMBOL(430,140),"DE10A   .SND",1,1,4,,PSET
  104. 6280    GOSUB *SETF:RETURN
  105. 6290 *SL08
  106. 6300    LN$="DE10B.SND":J=8
  107. 6310    SYMBOL(430,160),"DE10B   .SND",1,1,4,,PSET
  108. 6320    GOSUB *SETF:RETURN
  109. 6330 *SL09
  110. 6340    LN$="SUNLINER.SND":J=9
  111. 6350    SYMBOL(430,180),"SUNLINER.SND",1,1,4,,PSET
  112. 6360    GOSUB *SETF:RETURN
  113. 6370 *SL10
  114. 6380    LN$="KINKO115.SND":J=10
  115. 6390    SYMBOL(430,200),"KINKO115.SND",1,1,4,,PSET
  116. 6400    GOSUB *SETF:RETURN
  117. 6410 *SL11
  118. 6420    LN$="YAKUMO.SND":J=11
  119. 6430    SYMBOL(430,220),"YAKUMO  .SND",1,1,4,,PSET
  120. 6440    GOSUB *SETF:RETURN
  121. 6450 *SL12
  122. 6460    LN$="GETADEN.SND":J=12
  123. 6470    SYMBOL(430,240),"GETADEN .SND",1,1,4,,PSET
  124. 6480    GOSUB *SETF:RETURN
  125. 7000 '  DISPLAY CONDITION ------------------------------------*
  126. 7010 *MSET
  127. 7020    LINE (420,15)-(619,285),PSET,0,BF
  128. 7030    IF J=1  THEN GOSUB *MS01
  129. 7040    IF J=2  THEN GOSUB *MS02
  130. 7050    IF J=3  THEN GOSUB *MS03
  131. 7060    IF J=4  THEN GOSUB *MS04
  132. 7070    IF J=5  THEN GOSUB *MS05
  133. 7080    IF J=6  THEN GOSUB *MS06
  134. 7090    IF J=7  THEN GOSUB *MS07
  135. 7100    IF J=8  THEN GOSUB *MS08
  136. 7110    IF J=9  THEN GOSUB *MS09
  137. 7120    IF J=10 THEN GOSUB *MS10
  138. 7130    IF J=11 THEN GOSUB *MS11
  139. 7140    IF J=12 THEN GOSUB *MS12
  140. 7150    RETURN
  141. 8000 '
  142. 8010 *MS00
  143. 8020    LOAD@ "TITLE.TIF",(0,300)
  144. 8030    SYMBOL(100,330),"超簡易ＳＮＤデータ再生メニュー",2,2,1,,PSET
  145. 8040    SYMBOL(150,380),"音色データ選択＝左クリック",1,1,5,,PSET
  146. 8050    SYMBOL(150,400),"初期メニュー　＝右クリック",1,1,5,,PSET
  147. 8060    SYMBOL(200,425),"（注）汎用プログラムではありません",1,1,2,,PSET
  148. 8070    RETURN
  149. 8080 *MS01
  150. 8090    LOAD@ "EF65PF.TIF",(0,300)
  151. 8100    SYMBOL(430, 20),"フレート・ライナーと　",1,1,5,,PSET
  152. 8110    SYMBOL(430, 40),"近郊型電車のすれ違い。",1,1,5,,PSET
  153. 8120    SYMBOL(430, 60),"フレート・ライナーは、",1,1,5,,PSET
  154. 8130    SYMBOL(430, 80),"ＥＦ６５＋コキ5500系。",1,1,5,,PSET
  155. 8140    SYMBOL(430,100),"近郊型電車は 115系。　",1,1,5,,PSET
  156. 8150    RETURN
  157. 8160 *MS02
  158. 8170    LOAD@ "EF66A.TIF",(0,300)
  159. 8180    SYMBOL(430, 20),"フレート・ライナーと　",1,1,5,,PSET
  160. 8190    SYMBOL(430, 40),"近郊型電車のすれ違い。",1,1,5,,PSET
  161. 8200    SYMBOL(430, 60),"フレート・ライナーは、",1,1,5,,PSET
  162. 8210    SYMBOL(430, 80),"ＥＦ６６＋コキ5500系。",1,1,5,,PSET
  163. 8220    RETURN
  164. 8230 *MS03
  165. 8240    LOAD@ "EF65F.TIF",(0,300)
  166. 8250    SYMBOL(430, 20),"ＥＦ６５F の単機回送。",1,1,5,,PSET
  167. 8260    RETURN
  168. 8270 *MS04
  169. 8280    LOAD@ "EF66B.TIF",(0,300)
  170. 8290    SYMBOL(430, 20),"フレート・ライナー通過",1,1,5,,PSET
  171. 8300    SYMBOL(430, 60),"ＥＦ６６100 ＋コキ5500",1,1,5,,PSET
  172. 8310    RETURN
  173. 8320 *MS05
  174. 8330    LOAD@ "EF66A.TIF",(0,300)
  175. 8340    SYMBOL(430, 20),"スーパー・ライナー通過",1,1,5,,PSET
  176. 8350    SYMBOL(430, 60),"ＥＦ６６＋コキ 50000系",1,1,5,,PSET
  177. 8360    SYMBOL(430, 80),"コキ5500系混成編成。　",1,1,5,,PSET
  178. 8370    RETURN
  179. 8380 *MS06
  180. 8390    LOAD@ "YAKUMO.TIF",(0,300)
  181. 8400    SYMBOL(430, 40),"特急’やくも’の発車。",1,1,2,,PSET
  182. 8410    SYMBOL(430, 80),"レールとフランジの摩擦",1,1,2,,PSET
  183. 8420    SYMBOL(430,100),"音が収録できました。　",1,1,2,,PSET
  184. 8430    RETURN
  185. 8440 *MS07
  186. 8450 *MS08
  187. 8460    LOAD@ "DE10.TIF",(0,300) 
  188. 8470    SYMBOL(430, 20),"ＤＥ１０の入換作業。　",1,1,5,,PSET
  189. 8480    RETURN
  190. 8490 *MS09
  191. 8500    LOAD@ "SUNLINER.TIF",(0,300)
  192. 8510    SYMBOL(430, 20),"快速サン・ライナー通過",1,1,5,,PSET
  193. 8520    SYMBOL(430, 40),"イラストはサンライナー",1,1,5,,PSET
  194. 8530    SYMBOL(430, 60),"のグリーン車ですが、　",1,1,5,,PSET
  195. 8540    SYMBOL(430, 80),"音の方は只の115 系版の",1,1,5,,PSET
  196. 8550    SYMBOL(430,100),"サン・ライナーです。　",1,1,5,,PSET
  197. 8560    SYMBOL(430,140),"失礼しました。 (^_^;  ",1,1,3,,PSET
  198. 8570    SYMBOL(430,180),"’マリン・ライナー’と",1,1,5,,PSET
  199. 8580    SYMBOL(430,200),"同型です。　　　　　　",1,1,5,,PSET
  200. 8590    RETURN
  201. 8600 *MS10
  202. 8610    LOAD@ "KINKO115.TIF",(0,300)
  203. 8620    SYMBOL(430, 20),"近郊型115 系通過　　　",1,1,5,,PSET
  204. 8630    RETURN
  205. 8640 *MS11
  206. 8650    LOAD@ "YAKUMO.TIF",(0,300)
  207. 8660    SYMBOL(430, 20),"振子式特急電車　発車　",1,1,5,,PSET
  208. 8670    RETURN
  209. 8680 *MS12
  210. 8690    LOAD@ "GETADEN.TIF",(0,300)
  211. 8700    SYMBOL(430, 20),"しまった！            ",1,1,2,,PSET
  212. 8710    SYMBOL(430, 40),"　データがない！ ^_^; ",1,1,2,,PSET
  213. 8720    SYMBOL(430, 80),"ＪＲ最後の釣掛電動機式",1,1,5,,PSET
  214. 8730    SYMBOL(430,100),"電車の発車（車内）です",1,1,5,,PSET
  215. 8740    SYMBOL(430,140),"重連のため、パワーが　",1,1,5,,PSET
  216. 8750    SYMBOL(430,160),"あり余っている？　　　",1,1,5,,PSET
  217. 8760    RETURN
  218.